[200分〕高手们：怎么在Excel里批量生成文件目录？

给你的文件，好用吗？

编一个宏,假设工作簿中有3个工作表
Sub abc()
For i = 2 To 3
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 1, "A"), Address:="", _
SubAddress:= Sheets(i).Name & "!A1"
Next i
End Sub

什么意思呀，具体要做什么？

正巧在Excelhome论坛上看到一个制作文件目录的宏：
http://club.excelhome.net/thread-250803-1-1.html

楼主试试吧。

在要生成文件目录的地方新建一个文本文件，然后更改名字为a.bat(批处理文件)。单击a.bat，右键选择编辑，输入代码“tree > b.txt”。
双击执行a.bat文件生成b.txt。双击b.txt打开b.txt ,ctrl+A 选择全部文字，打开一个EXCEL文件后ctrl+V即可。

楼主，您好， 刚给您写的, 请看.

Sub MakeDir()
Dim i As Long
MkDir "c:\test"
For i = 1 To 200
MkDir ("c:\test\" & CStr(i))
Next
End Sub

==================================================
程序使用方法:

Alt+F11-->Alf+I(字母)-->M键, 复制并粘贴上边代码到右侧窗口，按工作栏上的执行按钮(图标样子是一个右三角形)